#include <iostream>
#include <string>
#include <functional>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>
#include <cstring>
#include <pthread.h>
#include <sys/types.h>
#include <sys/wait.h>

#include "InetAddr.hpp"
#include "Log.hpp"
#include "ThreadPool.hpp"

const static int gbacklog = 16;
const static int defaultsockfd = -1;
using task_t = std::function<void()>;

enum
{
    SOCKET_ERROR = 1,
    BIND_ERROR,
    LISTEN_ERROR

};

class TcpServer;

class ThreadData
{
public:
    ThreadData(int fd,InetAddr addr,TcpServer *s)
    :_sockfd(fd),_ClientAddr(addr),_self(s)
    {}
public:
    int _sockfd;
    InetAddr _ClientAddr;
    TcpServer *_self;
};

class TcpServer
{
public:
    TcpServer(uint16_t port)
        : _port(port), _isrunning(false), _listensock(defaultsockfd)
    {
    }
    ~TcpServer()
    {
        //只有监听过的监听套接字才需要关闭
        if (_listensock > defaultsockfd)
        {
            close(_listensock); // 关闭监听
        }
    }

    void InitServer()
    {
        _listensock = socket(AF_INET, SOCK_STREAM, 0); // TCP协议用SOCK_STREAM

        // 创建失败
        if (_listensock < 0)
        {
            LOG(FATAL, "socket error\n");
            exit(SOCKET_ERROR);
        }
        LOG(DEBUG, "socket create success, sockfd: %d\n", _listensock);

        // 填地址
        struct sockaddr_in local;
        memset(&local, 0, sizeof(local));
        local.sin_family = AF_INET;
        local.sin_addr.s_addr = INADDR_ANY;
        local.sin_port = htons(_port);

        // 绑定
        int n = bind(_listensock, (struct sockaddr *)&local, sizeof(local));

        // 绑定失败
        if (n < 0)
        {
            LOG(FATAL, "%d bind error\n", _port);
            exit(BIND_ERROR);
        }
        LOG(DEBUG, "bind success,sockfd: %d\n", _listensock);

        // 开始监听连接，只需要调用 listen 一次（不建议放到 loop 循环中）
        n = listen(_listensock, gbacklog);

        // 监听失败
        if (n < 0)
        {
            LOG(FATAL, "listen error\n");
            exit(LISTEN_ERROR);
        }
        LOG(DEBUG, "listen success,sockfd: %d\n", _listensock);
    }

    void Service(int sockfd, InetAddr client)
    {
        LOG(DEBUG, "get a new link, info %s:%d, fd: %d \n", client.Ip().c_str(), client.Port(), sockfd);

        // 发送方端口号
        std::string clientaddr = "[" + client.Ip() + ":" + std::to_string(client.Port()) + "]#";

        // 缓冲区
        char inbuffer[1024];

        while (true)
        {
            // 读取字节流
            //TCP面向字节流，所以可以用 read 和 write 这些文件的接口（文件也是面向字节流的）
            //  n：读到的字节数
            ssize_t n = read(sockfd, inbuffer, sizeof(inbuffer) - 1);

            if (n > 0)
            {
                inbuffer[n] = 0;

                std::cout << clientaddr << inbuffer << std::endl;

                // 应答
                std::string echo_string = "[server echo]#";
                echo_string += inbuffer;
                write(sockfd, echo_string.c_str(), echo_string.size());
            }
            else if (n == 0) // 读到文件结尾
            {
                // 尝试从当前位置继续读取数据但没有更多的数据可以读取
                // 那么就说程序已经到达了文件的结尾，client 退出
                LOG(INFO, "%s quit\n", clientaddr.c_str());
                break;
            }
            else // 读取失败
            {
                LOG(ERROR, "read error\n");
                break;
            }
        }

        // 服务器开始退出
        std::cout << "server start to quit..." << std::endl;

        // sockfd 才是提供服务的套接字描述符，_listensock 用于监听
        // 需要关掉提供提供服务的 sockfd（避免文件描述符泄露）
        shutdown(sockfd, SHUT_RD);

        std::cout << "shut_rd" << std::endl;
    }

    static void* HandlerSock(void *args)
    {
        pthread_detach(pthread_self());//分离新、主线程

        ThreadData *td=static_cast<ThreadData*>(args);

        td->_self->Service(td->_sockfd,td->_ClientAddr);

        delete td;

        return nullptr;
    }

    // 循环接收连接
    void Loop()
    {
        _isrunning = true;

        while (_isrunning)
        {
            // 输出型参数
            struct sockaddr_in peer;
            socklen_t len = sizeof(peer);

            // 等待并接收连接
            int sockfd = accept(_listensock, (struct sockaddr *)&peer, &len);

            // 接收失败
            if (sockfd < 0)
            {
                LOG(WARNING, "accept error\n");

                // 本次接收失败之后还可以继续接收
                continue;
            }

            // 开始执行任务

            // version 0: 一次只能处理一个请求
            // Service(sockfd,InetAddr(peer));

            // version 1：用多进程

            // // 创建子进程
            // pid_t id = fork();
            // if (id == 0) // 子进程
            // {
            //     close(_listensock);//子进程不需要监听

            //     // 创建孙子进程
            //     if (fork() > 0)
            //         exit(0); // 子进程退出

            //     //孙子进程变僵尸进程，由系统收养
            //     Service(sockfd, InetAddr(peer)); // 孙子进程执行任务
            //     exit(0);
            // }

            // // 父进程
            // close(sockfd);//父进程不需要提供服务
            // waitpid(id,nullptr,0);

            // // version 2：用多线程
            // pthread_t t;
            // ThreadData *data =new ThreadData(sockfd,InetAddr(peer),this);

            // pthread_create(&t,nullptr,HandlerSock,data);

            // version 3：用线程池

            task_t t=std::bind(&TcpServer::Service,this,sockfd,InetAddr(peer));
            ThreadPool<task_t>::GetInstance()->Enqueue(t);
        }

        _isrunning = false;
    }

private:
    int _listensock; // 用于监听
    uint16_t _port;
    bool _isrunning; // 是否正在运行
};